home *** CD-ROM | disk | FTP | other *** search
/ MacHack 2000 / MacHack 2000.toast / pc / The Hacks / Boxer / PalmBoxer / compcore.S < prev    next >
Encoding:
Text File  |  2000-06-23  |  569 b   |  49 lines
  1. .text
  2.     .even
  3. .globl compcore
  4. compcore:
  5.     link.w %a6,#0
  6.     movm.l #0x1e30,-(%sp)
  7.  
  8. |d3 avail
  9.  
  10.     move.l 12(%a6),%d6
  11.     move.w 16(%a6),%d4
  12.     subq.w #2,%d4
  13.  
  14.     move.l 8(%a6),%a3
  15.     move.l (%a3),%a0
  16.  
  17.     move.l %d6,%a1
  18.     addq.l #1,%d6
  19.     move.b (%a1)+,%d2
  20.  
  21.     moveq.l #1,%d0
  22. .L43:
  23.     cmp.b (%a0)+,%d2
  24.     jbne .L43
  25.  
  26.     cmp.l %a0,%d6
  27.     jbeq .L44
  28.  
  29.     move.l %a0,%a2
  30.     move.l %d6,%a1
  31.     move.w %d0,%d1
  32. .L58:
  33.     cmpm.b (%a1)+,(%a2)+
  34.     dbne %d1,.L58
  35.     jbne .L43
  36.  
  37.     move.l %a0,(%a3)
  38. .L67:
  39.     addq.w #1,%d0
  40.     cmp.w %d0,%d4
  41.     jbeq .L44
  42.     cmpm.b (%a1)+,(%a2)+
  43.     jbeq .L67
  44.     bra .L43
  45. .L44:
  46.     movm.l -24(%a6),#0xc78
  47.     unlk %a6
  48.     rts
  49.